home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Classic 39
/
CD CLASSIC #39 (1998).iso
/
EMPRESA
/
visio
/
Vistdstd
/
Install
/
Data.Z
/
Netdiag.FRM
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1996-09-03
|
5KB
|
129 lines
VERSION 4.00
Begin VB.Form frmMainForm
Appearance = 0 'Flat
BackColor = &H0080FFFF&
BorderStyle = 3 'Fixed Dialog
Caption = "Network Diagramming"
ClientHeight = 1905
ClientLeft = 780
ClientTop = 1800
ClientWidth = 5115
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 2595
Icon = "NETDIAG.frx":0000
Left = 720
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 1905
ScaleWidth = 5115
Top = 1170
Width = 5235
Begin MSComDlg.CommonDialog ctlCDialog
Left = 480
Top = 600
_Version = 65536
_ExtentX = 847
_ExtentY = 847
_StockProps = 0
End
Begin VB.Menu mnuFile
Caption = "&File"
Begin VB.Menu mnuFileNewDBase
Caption = "&New Database..."
End
Begin VB.Menu mnuFileOpen
Caption = "&Open Database..."
End
Begin VB.Menu mnuFileSep1
Caption = "-"
End
Begin VB.Menu mnuFileExit
Caption = "E&xit"
End
End
Attribute VB_Name = "frmMainForm"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
' -----------------------------------------------------------------------------
' Copyright (C) 1993-1996 Visio Corporation. All rights reserved.
' You have a royalty-free right to use, modify, reproduce and distribute
' the Sample Application Files (and/or any modified version) in any way
' you find useful, provided that you agree that Visio has no warranty,
' obligations or liability for any Sample Application Files.
' -----------------------------------------------------------------------------
Option Explicit
Private Sub mnuFileExit_Click()
'----------------------------------------
'--- mnuFileExit_Click ------------------
'-- Handles request for exit. We prompt before exiting.
Dim strMsg As String
strMsg = "Are you sure you want to quit?"
If MsgBox(strMsg, MB_ICONEXCLAMATION Or MB_YESNO, "Exit") = IDYES Then
End
End If
End Sub
Private Sub mnuFileNewDBase_Click()
'----------------------------------------
'--- mnuFileNewDBase_Click --------------
'-- Handles the user's request to build a blank database.
On Error GoTo lblNewDBaseCatchCancelErr
Dim strFileName As String
ctlCDialog.DialogTitle = "Create Blank Database"
ctlCDialog.CancelError = True
ctlCDialog.Flags = OFN_HIDEREADONLY Or OFN_OVERWRITEPROMPT
ctlCDialog.Filter = "Access Files (*.mdb)|*.mdb"
ctlCDialog.DefaultExt = "mdb"
ctlCDialog.Action = 2
strFileName = ctlCDialog.filename
On Error GoTo lblKillCatch
Kill strFileName
SetMousePointer MP_WAIT
CreateBlankDatabase strFileName
SetMousePointer MP_NORMAL
MsgBox strFileName & " Created.", MB_ICONINFORMATION, ""
Exit Sub
lblNewDBaseErr:
MsgBox "Error creating blank database." & Chr(13) & Chr(10) & Error
Exit Sub
Resume Next
lblNewDBaseCatchCancelErr:
Exit Sub
Resume Next
lblKillCatch:
Resume Next
End Sub
Private Sub mnuFileOpen_Click()
'----------------------------------------
'--- mnuFileOpen_Click ------------------
'-- The process for creating a network diagram requires we first prompt for
'-- an Access database name. If the user selects a file we then verify it
'-- is OK for diagramming (ValidDatabase) and if so we create the diagram.
Dim strFileName As String
On Error GoTo lblFileOpenErr
ctlCDialog.DialogTitle = "Open Network Database"
ctlCDialog.Filter = "Access Files (*.mdb)|*.mdb"
ctlCDialog.CancelError = True
ctlCDialog.Action = 1
strFileName = ctlCDialog.filename
If ValidDatabase(strFileName) Then
SetMousePointer MP_WAIT
CreateDiagram (strFileName)
SetMousePointer MP_NORMAL
Else
MsgBox "Invalid Database", MB_ICONEXCLAMATION, "Open"
End If
Exit Sub
lblFileOpenErr:
Exit Sub
Resume Next
End Sub